home *** CD-ROM | disk | FTP | other *** search
/ Family Forum 260 / SOMC Family Forum 260 - Disc 2.iso / somc / help.dir / 00001_Script_Start Movie next >
Text File  |  1999-01-07  |  2KB  |  87 lines
  1.  
  2. on startMovie
  3.   
  4.    --* This declares the variables for the finger cursor. *
  5.   
  6.   global FINGER, FINGERMASK
  7.   set FINGER to the number of member "Finger1" 
  8.   set FINGERMASK to the number of member "Finger2" 
  9.   
  10.   glowclear()
  11.   
  12. end startmovie
  13.  
  14.  
  15. --* This handler hides/shows the glow images. eg: glow(5,TRUE) *
  16.  
  17. on glow WHICHSPRITE, TRUEORFALSE
  18.   set the visible of sprite WHICHSPRITE to TRUEORFALSE
  19. end glow
  20.  
  21. --* TURN OF ALL GLOWS ON START
  22. on glowClear
  23.   repeat with i = 50 to 65
  24.     glow(i)
  25.   end repeat
  26. end
  27.  
  28. --* This handler switches the text color for a glow effect. eg.textglow("Hello",1)*
  29.  
  30. on textglow WHICHMEMBER, COLORNUMBER
  31.   set the foreColor of member WHICHMEMBER to COLORNUMBER  
  32. end textglow
  33.  
  34.  
  35. --* THIS HANDLER OPEN AND CENTERS A MOVIE IN A WINDOW *
  36.  
  37. on openMIAW MYWINDOW
  38.   set myRect=the rect of window MYWINDOW
  39.   set myStage=the rect of the Stage
  40.   set myWidth=(getAt(myRect,3)-getAt(myRect,1))
  41.   set myHeight=(getAt(myRect,4)-getAt(myRect,2))
  42.   set myLocH=((getAt(myStage,3)+getAt(myStage,1))/2)-(myWidth/2)
  43.   set myLocV=((getAt(myStage,2)+getAt(myStage,4))/2)-(myHeight/2)
  44.   set myNewRect=rect(myLocH,myLocV,(myLocH+myWidth),(myLocV+myHeight))
  45.   set the rect of window MYWINDOW=myNewRect
  46.   set the windowType of window MYWINDOW to 2
  47.   open window MYWINDOW
  48. end openMIAW
  49.  
  50. --* THIS HANDLER TURNS THE SPRITE PASSED TO IT TO INVISIBLE AND RESETS THE CURSOR
  51. on doRollout numsprite
  52.   glow(numsprite,FALSE)
  53.   cursor 0
  54. end
  55.  
  56. --* PLAYS A CLICK SOUND
  57.  
  58. on doClick
  59.   puppetsound 1,"clicksound"
  60.   updateStage
  61. end
  62.  
  63. -- Delays for x number of seconds
  64. on timedelay SECONDS 
  65.   startTimer
  66.   repeat while the timer < SECONDS * 60
  67.     nothing
  68.   end repeat    
  69. end
  70.  
  71.  
  72. on doRollover numsprite,SOUNDNUM
  73.   glow(numsprite,TRUE)
  74.   global finger,fingermask
  75.   cursor[finger,fingermask]
  76.   updatestage  
  77.   case SOUNDNUM of
  78.     1:
  79.       puppetsound 1, "rollsound"
  80.       --  repeat while soundbusy(1)
  81.       --  end repeat
  82.     2:
  83.       puppetsound 1, "rollsound2"
  84.       --  repeat while soundbusy(1)
  85.       --  end repeat      
  86.   end case  
  87. end